<%@ LANGUAGE="VBScript" %> <% Run=CStr(Request("run")) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = " select rs.run,rs.run_type,to_char(rs.run_date,'MM/DD/YYYY HH24:MI:SS') run_date, " SQLStmt = SQLStmt & " to_char(le.log_date,'MM/DD/YYYY HH24:MI:SS') crdate, " SQLStmt = SQLStmt & " ca.caltype,ca.calmethod,ca.calversion,ca.valid " SQLStmt = SQLStmt & " from phoffline.runs rs,phoffline.calibrations ca,phoffline.log_entries le " SQLStmt = SQLStmt & " where rs.run_date=ca.validity_date and le.logid=ca.logid " SQLStmt = SQLStmt & " and rs.run=" & CInt(run) & " " SQLStmt = SQLStmt & " order by le.log_date " ' response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) %> Run Calibrations

Calibrations Using Run <%=run%>

<% If Not RS.EoF Then run_type=CStr(RS("run_type")) run_date=CStr(RS("run_date")) %>

Run type <%=run_type%>. Validity date for calibrations <%=run_date%>

<% Do While Not RS.EoF %> <% RS.MoveNext Loop %>
Creation Date CalType CalMethod CalVersion Valid?
<%= RS("crdate") %> <%= RS("caltype") %> <%=RS("calmethod") %> <%=RS("calversion") %> <%=RS("valid") %>
<% Else %> No calibrations associated with this run <% End If Connection.Close %>